home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / BOXES / THSTCBO2 / HCBTEST1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-21  |  1KB  |  58 lines
  1. unit Hcbtest1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils,  Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, HstCbo, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TfrmTestHistoryComboBox = class(TForm)
  11.     btRead: TButton;
  12.     btWrite: TButton;
  13.     Bevel1: TBevel;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     procedure btReadClick(Sender: TObject);
  18.     procedure btWriteClick(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.   private
  21.     { Private-Deklarationen }
  22.     HistoryComboBox1: THistoryComboBox;
  23.   public
  24.     { Public-Deklarationen }
  25.   end;
  26.  
  27. var
  28.   frmTestHistoryComboBox: TfrmTestHistoryComboBox;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TfrmTestHistoryComboBox.btReadClick(Sender: TObject);
  35. begin
  36.   HistoryComboBox1.ReadRegistry;
  37.   ShowMessage('HistoryComboBox filled with information from Registry!');
  38. end;
  39.  
  40. procedure TfrmTestHistoryComboBox.btWriteClick(Sender: TObject);
  41. begin
  42.   HistoryComboBox1.WriteRegistry;
  43.   ShowMessage('HistoryComboBox and Registry updated with information from HistoryComboBox!');
  44. end;
  45.  
  46. procedure TfrmTestHistoryComboBox.FormCreate(Sender: TObject);
  47. begin
  48.   { Create a HistoryComboBox 'on the fly' }
  49.   HistoryComboBox1 := THistoryCombobox.Create(Self);
  50.   HistoryComboBox1.Top := 16;
  51.   HistoryComboBox1.Left := 10;
  52.   HistoryComboBox1.Parent := frmTestHistoryComboBox;
  53.   HistoryComboBox1.MaxHistoryLength := 4;
  54.   HistoryComboBox1.Key := 'HCBTest\HistoryComboBox1';
  55. end;
  56.  
  57. end.
  58.